home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
eulisp
/
comp0_89.lha
/
Feel
/
Boot
/
Compiler
/
compile.fm
< prev
next >
Wrap
Text File
|
1993-07-16
|
6KB
|
1,168 lines
(standard0 list-fns comp-utl syntax pass-0 gen-code iface output out-fast rshow stop)
15
2078
(compile name Compiler-Error direct-superclasses direct-slot-descriptions "Compile failed. Abandoning...~%" "Compiler-Error" "A compiler error has occured" compile-time-error-handler lambda-list (cond cont) method-class argtype 2 methods signature function msg values "Compiler Failure" domain (boot-utils newinit initmeth) (boot macros0 extras0 defs semaphores standard0) (comp2sc) ((strip (union (import standard0) (import list-fns) (import comp-utl) (import syntax) (import pass-0) (import gen-code) (import iface) (import output) (import out-fast) (import rshow) (import stop))) comp2sc) compile)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 110 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 26 0
46
1
(boot . make-installed-module)
34
2
36
0 0 40 0
5
0 0 0 0
8
3
4
0 0 24 0
5
0 0 27 0
3
0
39
8
0
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 25 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 7 64 0
11
4
0 0 1 0
5
0 0 0 0
39
51
1
7
0 0 28 0
36
0 0 85 0
1
(init . make)
1
(errors . <condition-class>)
4
0 0 2 0
3
0
39
9
4
0 0 3 0
3
0
39
29
4
0 0 4 0
3
0
39
29
1
(errors . <condition>)
3
0
39
3
0
39
29
4
0 0 5 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 29 0
3
0
7
0 0 30 0
36
0 6 2 0
11
4
0 0 1 0
6
1
39
51
1
7
0 0 31 0
36
0 5 89 0
11
4
0 0 1 0
6
2
39
51
1
7
0 0 32 0
36
0 2 17 0
1
(init . make)
1
(class-names . <generic-function>)
4
0 0 2 0
3
0
39
9
4
0 0 9 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
1
(class-names . <method>)
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 15 0
3
0
39
29
36
0 0 89 0
1
(init . make)
1
(class-names . <method>)
4
0 0 16 0
3
0
39
9
1
(mod-info . Module-State-Error)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 17 0
3
0
39
29
36
0 4 41 0
8
14
40
2
3
0
39
29
18
11
34
-2
3
0
39
9
36
0 0 89 0
1
(init . make)
1
(class-names . <method>)
4
0 0 16 0
3
0
39
9
1
(syntax . Syntax-Error)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 17 0
3
0
39
29
36
0 3 101 0
8
16
40
2
3
0
39
29
18
11
34
-2
3
0
39
29
36
0 0 89 0
1
(init . make)
1
(class-names . <method>)
4
0 0 16 0
3
0
39
9
1
(gen-code . Compile-Time-Error)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 17 0
3
0
39
29
36
0 2 139 0
8
16
40
2
3
0
39
29
18
11
34
-2
3
0
39
29
36
0 0 89 0
1
(init . make)
1
(class-names . <method>)
4
0 0 16 0
3
0
39
9
1
(class-names . <object>)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
4
0 0 17 0
3
0
39
29
36
0 2 41 0
8
16
40
2
3
0
39
29
18
11
34
-2
3
0
39
29
18
3
0
39
29
4
0 0 21 0
3
0
39
29
1
(class-names . <object>)
3
0
39
9
1
(class-names . <object>)
3
0
39
29
18
3
0
39
29
18
11
34
-2
7
0 0 33 0
3
0
7
0 0 34 0
3
0
7
0 0 35 0
3
0
7
0 0 36 0
36
0 1 180 0
11
4
0 0 1 0
6
3
39
51
1
7
0 0 27 0
36
0 1 138 0
11
4
0 0 1 0
6
4
39
51
1
7
0 0 37 0
36
0 0 183 0
11
4
0 0 1 0
6
5
39
51
2
7
0 0 38 0
4
0 0 22 0
7
0 0 39 0
36
0 0 92 0
11
4
0 0 1 0
6
6
39
51
0
7
0 0 40 0
36
0 0 25 0
11
4
0 0 1 0
6
7
39
51
1
7
0 0 41 0
18
3
1
37
10
4
0 0 39 0
49
32
0 0 22 0
18
4
0 0 37 0
9
13
3
18
3
0
31
0 1 16 0
18
4
0 0 27 0
9
13
3
18
3
0
31
0 1 20 0
36
0 0 29 0
1
(init . mapc)
4
0 0 37 0
4
0 0 39 0
3
0
12
34
-3
18
1
(init . mapc)
4
0 0 27 0
4
0 0 23 0
3
0
12
14
6
4
9
13
5
34
-3
22
2
11
20
0
0
10
20
0
1
1
(calls . simple-call/cc)
36
0 0 14 0
12
40
1
14
5
2
62
1
37
1
(calls . push-handler)
36
0 0 19 0
4
0 0 32 0
8
5
10
26
31
0 2 0 0
62
1
18
36
0 0 21 0
4
0 0 31 0
12
19
0
0
3
0
31
0 2 124 0
9
26
10
27
36
0 0 26 0
1
(output . output-sc-state)
8
4
8
4
8
8
19
0
1
12
34
3
36
0 0 19 0
1
(iface . write-interface-file)
8
5
10
34
1
18
36
0 0 18 0
1
(out-fast . write-fastbytes)
12
10
34
1
18
36
0 0 18 0
1
(output . write-compile-unit)
12
10
34
1
18
15
4
1
(calls . pop-handler)
62
0
18
15
3
37
4
0 0 38 0
11
3
0
11
14
6
3
9
13
4
26
31
0 0 206 1
4
0 0 38 0
11
3
1
11
14
6
3
9
13
4
26
31
0 0 227 1
17
3
3
0
37
36
0 0 85 0
1
(init . apply)
1
(extras0 . format)
3
1
36
0 0 24 0
1
(standard0 . slot-value)
8
10
4
0 0 18 0
11
34
2
3
0
39
9
36
0 0 24 0
1
(standard0 . slot-value)
8
12
4
0 0 19 0
11
34
2
3
0
39
29
18
12
34
-3
18
3
1
9
7
0 0 30 0
18
1
(init . error)
4
0 0 20 0
4
0 0 29 0
3
0
12
14
8
4
9
13
5
34
-3
36
0 0 85 0
1
(init . apply)
1
(extras0 . format)
3
1
36
0 0 24 0
1
(standard0 . slot-value)
8
10
4
0 0 18 0
11
34
2
3
0
39
9
36
0 0 24 0
1
(standard0 . slot-value)
8
12
4
0 0 19 0
11
34
2
3
0
39
29
18
12
34
-3
18
3
1
9
7
0 0 30 0
17
2
15
2
9
13
2
33
0
36
0 0 85 0
1
(init . apply)
1
(extras0 . format)
3
1
36
0 0 24 0
1
(standard0 . slot-value)
8
10
4
0 0 18 0
11
34
2
3
0
39
9
36
0 0 24 0
1
(standard0 . slot-value)
8
12
4
0 0 19 0
11
34
2
3
0
39
29
18
12
34
-3
18
3
1
9
7
0 0 30 0
17
2
15
2
9
13
2
33
0
22
1
10
20
0
0
36
0 0 11 0
11
40
2
15
3
37
36
0 0 34 0
1
(streams . flush)
36
0 0 17 0
1
(extras0 . standard-error-stream)
9
33
0
10
33
1
18
36
0 0 34 0
1
(streams . flush)
36
0 0 17 0
1
(extras0 . standard-output-stream)
9
33
0
10
33
1
18
1
(classes . class-of)
12
62
1
4
0 0 29 0
43
32
0 0 16 0
9
19
0
0
15
3
9
13
3
33
1
1
(extras0 . format)
3
1
4
0 0 8 0
3
0
12
14
8
4
9
13
5
34
-3
3
0
9
7
0 0 30 0
18
1
(calls . push-handler)
4
0 0 33 0
62
1
18
36
0 0 36 0
1
(syntax . translate)
36
0 0 19 0
4
0 0 28 0
8
7
10
26
31
0 0 143 0
10
34
1
36
0 0 18 0
1
(pass-0 . annotate-tree)
12
10
34
1
18
4
0 0 30 0
32
0 0 66 0
36
0 0 26 0
1
(extras0 . format)
3
1
4
0 0 6 0
3
0
12
34
-3
18
36
0 0 29 0
1
(init . error)
4
0 0 7 0
4
0 0 29 0
3
0
12
34
-3
31
0 0 33 0
9
9
7
0 0 35 0
18
9
36
0 0 18 0
1
(gen-code . generate-code)
12
10
34
1
39
15
2
1
(calls . pop-handler)
62
0
18
15
3
37
22
1
36
0 0 19 0
1
(comp-utl . get-module-stream)
8
4
10
34
1
10
16
20
0
0
18
1
(calls . fn-unwind-protect)
36
0 0 43 0
12
40
0
36
0 0 15 0
8
4
40
0
14
5
3
62
2
37
1
(streams1 . close)
10
19
0
0
13
2
9
13
3
33
1
1
(streams . read)
10
19
0
0
14
3
2
62
1
37